home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / Comal / CITDemos / CITMouse < prev    next >
Encoding:
Text File  |  2001-04-11  |  1.1 KB  |  51 lines
  1. // Mouse button demo
  2. //
  3. // Press left mouse button and you will get the position
  4. // Move mouse while button is pressed
  5.  
  6. USE CITScreen
  7. USE CITWindow
  8.  
  9. DIM Error OF SHORT
  10. DIM MouseMoveEvent OF SHORT
  11.  
  12. DIM DemoWindow OF CITWindow
  13. DemoWindow.Position(50,20)
  14. DemoWindow.Size(530,150)
  15. DemoWindow.CloseGadget
  16. DemoWindow.DragBar
  17. DemoWindow.SizingGadget
  18. DemoWindow.DepthGadget
  19. DemoWindow.Activate
  20. DemoWindow.SelectEventHandler(Button(,,))
  21. DemoWindow.PointerEventHandler(MouseMove(,))
  22. ComalScreen.InsObject(DemoWindow,Error)
  23. IF Error THEN
  24.   STOP "Could'nt open the window"
  25. ENDIF
  26.  
  27. DemoWindow.MouseMove(TRUE)
  28.  
  29. WHILE NOT DemoWindow.ClosePressed DO WAIT
  30.  
  31. ComalScreen.RemObject(DemoWindow)
  32.  
  33. PROC Button(Down OF BYTE,x OF FLOAT,y OF FLOAT)
  34.   IF Down THEN
  35.     IF NOT MouseMoveEvent THEN
  36.       MouseMoveEvent:=TRUE
  37.       DemoWindow.MouseMove(TRUE)
  38.     ENDIF
  39.     PRINT AT 20,5: USING "x = -### ,  y = -###": x,y,
  40.   ELSE
  41.     IF MouseMoveEvent THEN
  42.       MouseMoveEvent:=FALSE
  43.       DemoWindow.MouseMove(FALSE)
  44.     ENDIF
  45.   ENDIF
  46. ENDPROC Button
  47.  
  48. PROC MouseMove(x OF FLOAT,y OF FLOAT)
  49.   PRINT AT 20,5: USING "x = -### ,  y = -###": x,y,
  50. ENDPROC MouseMove
  51.